home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ing / restore / restore.cls < prev    next >
Text File  |  1996-01-08  |  1KB  |  41 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Connector"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Attribute VB_Description = "Restore Project Add-In"
  9. '***************************************************
  10. ' Property Variables of Connector class
  11. '***************************************************
  12. ' This class retrieves the name of the previous project
  13. ' and connect the Loader to the AfterNewProject event.
  14.  
  15. Option Explicit
  16.  
  17. Dim VBInstance As VBIDE.Application
  18. Dim iLoader As Loader
  19.  
  20. Sub ConnectAddIn(VBDriverInstance As VBIDE.Application)
  21.     Dim projectname$
  22.     Dim hConnection As Long
  23.  
  24.     Set VBInstance = VBDriverInstance
  25.  
  26.     ' Get project name
  27.     projectname = String$(255, Chr$(0))
  28.     GetPrivateProfileString "Visual Basic", "RecentFile1", "", projectname$, Len(projectname$) + 1, "VB.INI"
  29.     projectname$ = Left(projectname$, InStr(projectname$, Chr(0)) - 1)
  30.     If projectname$ <> "" Then
  31.       ' Create an instance of the Loader class
  32.       Set iLoader = New Loader
  33.       ' Connect it to the AfterNewProject event
  34.       Set iLoader.VBInstance = VBInstance
  35.       hConnection = VBInstance.Application.FileControl.ConnectEvents(iLoader)
  36.       ' Pass the project name to the loader
  37.       iLoader.NewProjectName = projectname$
  38.     End If
  39. End Sub
  40.  
  41.